Imports Microsoft.VisualBasic
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections.Generic
Imports EntityLayer

Public Class CatalogoProveedorDA

    Public Shared Function BuscarCatalogoxOrdenCompra(ByVal intIdOrdenCompra As Integer) As DataSet
       
        Dim cnnSql As New SqlConnection(ConexionDA.ObtenerCnx)
        Dim daSql As New SqlDataAdapter("COM_CatalogoProveedor_ListByOrdenCompra", cnnSql)
        daSql.SelectCommand.CommandType = CommandType.StoredProcedure

        Dim ds As New DataSet

        daSql.SelectCommand.Parameters.Add("@intIdOrdenCompra", SqlDbType.Int).Value = intIdOrdenCompra
        daSql.Fill(ds, "OrdenCompra")

        Return ds

    End Function

End Class
